Cream of the Crop 22/Cream of the Crop 22.iso/windows/treesize.zip/Treesize.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1996-11-11 | 5KB | 252 lines

object MainForm: TMainForm
  Left = 230
  Top = 112
  Width = 320
  Height = 393
  Caption = 'TreeSize'
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 329
    Width = 312
    Height = 18
    Hint = 'Test'
    Font.Color = clBlack
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Text = 'Free Space:'
        Width = 120
      end
      item
        Text = '0 Files'
        Width = 85
      end
      item
        Width = 120
      end>
    ParentFont = False
    SimplePanel = False
  end
  object Progress: TProgressBar
    Left = 0
    Top = 311
    Width = 312
    Height = 18
    Align = alBottom
    Min = 0
    Max = 100
    Step = 1
    TabOrder = 1
    Visible = False
  end
  object Tree: TDCTreeView
    Left = 0
    Top = 0
    Width = 312
    Height = 311
    ReadOnly = True
    DragMode = dmAutomatic
    Indent = 19
    OnExpanding = TreeExpanding
    Align = alClient
    ParentColor = False
    TabOrder = 2
    OnMouseUp = TreeMouseUp
    PopupMenu = PopupMenu
    AcceptFiles = False
    OnFileDrop = TreeFileDrop
  end
  object MainMenu: TMainMenu
    Left = 159
    Top = 14
    object FileMenu: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object select: TMenuItem
        Caption = 'Select &Directory'
        ShortCut = 0
        OnClick = FileOpen
      end
      object Update: TMenuItem
        Caption = '&Update'
        ShortCut = 116
        OnClick = UpdateClick
      end
      object Print1: TMenuItem
        Caption = '&Print'
        ShortCut = 0
        OnClick = Print1Click
      end
      object PrintSetup: TMenuItem
        Caption = 'Print &Setup ...'
        ShortCut = 0
        OnClick = PrintSetupClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object collapse: TMenuItem
        Caption = 'Full &Collapse'
        ShortCut = 0
        OnClick = CollapseClick
      end
      object expand: TMenuItem
        Caption = 'Full &Expand'
        ShortCut = 0
        OnClick = ExpandClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object FileExitItem: TMenuItem
        Caption = '&Exit'
        Hint = 'Anwendung beenden'
        ShortCut = 27
        OnClick = FileExit
      end
    end
    object Sort: TMenuItem
      Caption = '&Sort'
      ShortCut = 0
      object Sort1: TMenuItem
        Tag = 1
        Caption = 'By &Name'
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = Sort1Click
      end
      object Sort2: TMenuItem
        Tag = 2
        Caption = 'By &Size'
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = Sort1Click
      end
      object Sort3: TMenuItem
        Tag = 3
        Caption = 'N&one'
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = Sort1Click
      end
    end
    object View: TMenuItem
      Caption = '&View'
      GroupIndex = 1
      RadioItem = True
      ShortCut = 0
      object View1: TMenuItem
        Tag = 1
        Caption = '&Bytes'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = View1Click
      end
      object View2: TMenuItem
        Tag = 2
        Caption = 'Bytes &Alllocated'
        GroupIndex = 1
        Hint = 'Space occupied on disk'
        RadioItem = True
        ShortCut = 0
        OnClick = View1Click
      end
      object View3: TMenuItem
        Tag = 3
        Caption = '&Percent'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = View1Click
      end
      object View4: TMenuItem
        Tag = 4
        Caption = '&Wasted Space'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = View1Click
      end
      object View5: TMenuItem
        Tag = 5
        Caption = 'Use &CD-Rom Cluster Size'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = View1Click
      end
      object N3: TMenuItem
        Caption = '-'
        GroupIndex = 2
        ShortCut = 0
      end
      object User: TMenuItem
        Tag = 5
        Caption = '&User Defined Cluster Size'
        GroupIndex = 2
        ShortCut = 0
        OnClick = UserClick
      end
      object Mixed: TMenuItem
        Caption = 'KB/MB &Mixed'
        Checked = True
        GroupIndex = 2
        ShortCut = 0
        OnClick = MixedClick
      end
    end
    object Help: TMenuItem
      Caption = '&Help'
      GroupIndex = 1
      ShortCut = 0
      object AboutItem: TMenuItem
        Caption = 'Inf&o...'
        ShortCut = 0
        OnClick = About
      end
    end
  end
  object PopupMenu: TPopupMenu
    AutoPopup = False
    Left = 72
    Top = 16
    object open: TMenuItem
      Tag = 1
      Caption = '&Open'
      ShortCut = 0
      OnClick = openClick
    end
    object explore: TMenuItem
      Tag = 2
      Caption = '&Explore'
      ShortCut = 0
      OnClick = openClick
    end
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 24
    Top = 16
  end
end